home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 141 / 141side3.d64 / b.periodic table (.txt) < prev    next >
Commodore BASIC  |  2022-08-30  |  2KB  |  44 lines
  1. 62000 dv=peek(186):ifdv<8thendv=8
  2. 62010 print"[147]":poke53280,0:poke53281,0:poke211,0:poke214,08:sys58732
  3. 62020 a$="[219][219][219][219][219][219][219]"
  4. 62030 p$="[208] e r[160]i o d[160]i c  [160][212] a b l e":au$="[195]ameron [203]aiser":f$="p table"
  5. 62040 print"[176][178][178][178][178][178][178][178][155][178][178][178][178][178][178][178][152][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][152][178][178][178][178][178][178][174]
  6. 62050 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"<
  7. 62060 print"[171][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][179]
  8. 62070 [153]"-(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)<
  9. 62080 print"[171][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][179]
  10. 62090 [153]"-(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)<
  11. 62100 print"[171][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][179]
  12. 62110 [153]"-list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)<
  13. 62120 print"[155][171][219][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][219][179]
  14. 62130 [153]"list-(NULL)(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"<
  15. 62140 print"[155][171][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][179]
  16. 62150 [153]"list-(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)<
  17. 62160 print"[155][171][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][179]
  18. 62170 [153]"list-(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)<
  19. 62180 print"[152][171]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][179]"
  20. 62190 print"[152][171]"a$"[151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][219][179]"
  21. 62200 print"[155][173][177][177][177][177][177][177][151][177][177][177][177][177][177][177][177][152][177][177][177][177][177][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
  22. 62210 poke211,0:poke214,10:sys58732:x=2:gosub62230:gosub62280
  23. 62220 poke211,0:poke214,15:sys58732:x=5:gosub62230:goto62300
  24. 62230 gosub62260:print"[171][219][219][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][155]
  25. 62240 [129]i[178]1[164]x:[141]62260:[153]"-(NULL)<open                                waitpoke-":[130]
  26. 62250 [141]62260:[153]"-(NULL)(NULL)poke================================(NULL)":[142]
  27. 62260 [151]646,1:[139]x[177]2[167][151]646,15
  28. 62270 [142]
  29. 62280 [151]214,11:[151]211,20[171][195](p$)[173]2:[158]58732:[153]"open"p$
  30. 62290 [153][166]20[171][195](au$)[173]2)""au$:[142]
  31. 62300 [151]214,15:[151]211,0:[158]58732:
  32. 62310 [153]"open(len) 1996 mid$ & asc (NULL)ublishing, right$nc.
  33. 62320 print"[159][212]his is the copyrighted work of
  34. 62330 [153]"openmid$ & asc (NULL)ublishing, right$nc. right$t is not
  35. 62340 print"[159]shareware or public domain.
  36. 62350 [153]"open1-800-594-3370 or 1-318-221-8718
  37. 62360 fori=dvtodv:close2:open2,i,2:close2:ifstthen62380
  38. 62370 close15:open15,i,15,"r0:"+f$+"="+f$:input#15,er:close15:ifer=63then62390
  39. 62380 next:print""f$" not found!":poke186,8:end
  40. 62390 q$=chr$(34):poke646,peek(53281):print"";
  41. 62400 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$f$q$","i
  42. 62410 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
  43. 62420 poke635,145:poke636,13:poke198,6
  44.